From: Karl Berry Date: Mon, 19 Jan 2004 15:18:01 +0000 (+0000) Subject: (texinfo-mode): define outline-regexp to start X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24452 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1577c2e4e0acc6c74f770b1fcf56e2c6d20db546;p=emacs.git (texinfo-mode): define outline-regexp to start with ^, since that's what texinfo-show-structure documentation says (plus it works much better in texinfo.txi). --- diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 25670e8c310..0db3509eb4d 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -1,6 +1,6 @@ ;;; texinfo.el --- major mode for editing Texinfo files -;; Copyright (C) 1985,88,89,90,91,92,93,96,97,2000,01,03 +;; Copyright (C) 1985,88,89,90,91,92,93,96,97,2000,01,03, 04 ;; Free Software Foundation, Inc. ;; Author: Robert J. Chassell @@ -616,7 +616,7 @@ value of `texinfo-mode-hook'." (mapcar (lambda (x) (cons (concat "@" (car x)) (cadr x))) texinfo-section-list)) (set (make-local-variable 'outline-regexp) - (concat (regexp-opt (mapcar 'car outline-heading-alist) t) + (concat "^" (regexp-opt (mapcar 'car outline-heading-alist) t) "\\>")) (make-local-variable 'tex-start-of-header)